--- a/Smalltalk.st	Mon Jun 02 11:58:20 2003 +0200
+++ b/Smalltalk.st	Mon Jun 02 11:59:26 2003 +0200
@@ -1397,6 +1397,19 @@
 
 !Smalltalk class methodsFor:'debugging ST/X'!
 
+compileTrace:aBoolean
+    "dump generated inline code (NOOP if VM was compiled without the trace-debug option)"
+%{
+    extern char __compileTrace__;
+
+    __compileTrace__ = (aBoolean == true) ? 1 : 0;
+%}
+    "
+     Smalltalk compileTrace:true
+     Smalltalk compileTrace:false
+    "
+!
+
 debugBreakPoint
     "{ Pragma: +optSpace }"
 
@@ -6442,5 +6455,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.576 2003-05-19 09:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.577 2003-06-02 09:59:26 cg Exp $'
 ! !