Index: /trunk/ccl/level-0/X86/x86-misc.lisp
===================================================================
--- /trunk/ccl/level-0/X86/x86-misc.lisp	(revision 5271)
+++ /trunk/ccl/level-0/X86/x86-misc.lisp	(revision 5272)
@@ -695,3 +695,9 @@
   (single-value-return))
 
+
+(defx86lapfunction debug-trap-with-string ((arg arg_z))
+  (check-nargs 1)
+  (uuo-error-debug-trap-with-string)
+  (single-value-return))
+
 ;;; end of x86-misc.lisp