--- a/ByteCodeCompiler.st	Sun May 17 20:15:51 1998 +0200
+++ b/ByteCodeCompiler.st	Sun May 17 22:01:21 1998 +0200
@@ -2399,7 +2399,7 @@
      the external stc do do it.
      For a description of the arguments, see compile:forClass....."
 
-    |stFileName stream handle address stcFlags cFlags
+    |stFileName stream handle address stcFlags cFlags def
      command oFileName cFileName
      initName newMethod ok status className sep class stcPath ccPath 
      errorStream errorMessages eMsg m supers mP moduleFileName dummyHandle|
@@ -2502,6 +2502,9 @@
         cFlags isNil ifTrue:[
             cFlags := ''
         ].
+        (def := OperatingSystem getCPUDefine) notNil ifTrue:[
+            cFlags := cFlags , ' ' , def
+        ].
 
         STCCompilationDefines notNil ifTrue:[
             cFlags := cFlags , ' ' , STCCompilationDefines
@@ -2852,6 +2855,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.133 1998-05-06 14:19:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.134 1998-05-17 20:01:21 cg Exp $'
 ! !
 ByteCodeCompiler initialize!