diff --git a/core/optimizer/debugger/debugger.factor b/extra/optimizer/debugger/debugger.factor
old mode 100644
new mode 100755
similarity index 97%
rename from core/optimizer/debugger/debugger.factor
rename to extra/optimizer/debugger/debugger.factor
index ed0358fe7f..900f5a3829
--- a/core/optimizer/debugger/debugger.factor
+++ b/extra/optimizer/debugger/debugger.factor
@@ -73,8 +73,8 @@ M: #push node>quot nip pushed-literals % ;
 DEFER: dataflow>quot
 
 : #call>quot ( ? node -- )
-    dup node-param dup
-    [ , dup effect-str comment, ] [ 3drop ] if ;
+    dup node-param dup ,
+    [ dup effect-str ] [ "empty call" ] if comment, ;
 
 M: #call node>quot #call>quot ;