aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-saturn.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r--src/interp/br-saturn.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 1719be7a..2501b596 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -867,7 +867,7 @@ dbShowConsKinds cAlist ==
cats := doms := paks := defs := nil
for x in cAlist repeat
op := CAAR x
- kind := dbConstructorKind op
+ kind := dbConstructorKind constructorDB op
kind = 'category => cats := [x,:cats]
kind = 'domain => doms := [x,:doms]
kind = 'package => paks := [x,:paks]