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 c7972406..d5daf12b 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -1012,7 +1012,7 @@ dbGatherThenShow(htPage,opAlist,which,data,constructorIfTrue,word,fn) ==
atom thing => '"unconditional"
'""
htSay '"}"
- if null atom thing then
+ if cons? thing then
if constructorIfTrue then htSay('" {\em ",dbShowKind thing,'"}")
htSay '" "
FUNCALL(fn,thing)