diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 4e0787a2..4ce7412c 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -432,7 +432,7 @@ makeCategoryPredicates(form,u) == pl mkCategoryPackage(form is [op,:argl],cat,def) == - packageName:= INTERN(strconc(PNAME op,'"&")) + packageName:= INTERN(strconc(symbolName op,'"&")) packageAbb := INTERN(strconc(getConstructorAbbreviationFromDB op,'"-")) $options:local := [] -- This stops the next line from becoming confused |