Index: /trunk/ccl/level-0/l0-misc.lisp
===================================================================
--- /trunk/ccl/level-0/l0-misc.lisp	(revision 5269)
+++ /trunk/ccl/level-0/l0-misc.lisp	(revision 5270)
@@ -80,4 +80,7 @@
 (defun bug (arg)
   (if (typep arg 'simple-base-string)
+    #+x8664-target
+    (debug-trap-with-string arg)
+    #-x8664-target
     (let* ((len (length arg)))
       (%stack-block ((buf (1+ len)))