aboutsummaryrefslogtreecommitdiff
path: root/src/interp/clam.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/clam.boot')
-rw-r--r--src/interp/clam.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot
index ef384409..ae13ae5f 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot
@@ -358,7 +358,7 @@ clearCategoryCaches() ==
if getConstructorKindFromDB name = "category" then
if BOUNDP(cacheName:= mkCacheName name)
then symbolValue(cacheName) := nil
- if BOUNDP(cacheName:= INTERNL strconc(symbolName name,'";CAT"))
+ if BOUNDP(cacheName:= mkDomainCatName name)
then symbolValue(cacheName) := nil
clearCategoryCache catName ==