--- a/host.rc	Mon Mar 07 16:20:44 2011 +0100
+++ b/host.rc	Tue May 03 18:12:59 2011 +0200
@@ -156,6 +156,18 @@
     ].
     Compiler ccCompilationOptions:'-O'.
 
+    (conf includesString:'amd64_mode32') ifTrue:[
+	(ObjectFileLoader linkArgs includesString:'-m32') ifFalse:[
+	    ObjectFileLoader linkArgs:(ObjectFileLoader linkArgs , ' -m32 -m elf_i386').
+	].
+	(Compiler ccCompilationOptions includesString:'-m32') ifFalse:[
+	    Compiler ccCompilationOptions:(Compiler ccCompilationOptions , ' -m32').
+	].
+	(Compiler stcCompilationDefines includesString:'-D__amd64_mode32__') ifFalse:[
+	    Compiler stcCompilationDefines:(Compiler stcCompilationDefines , ' -D__amd64_mode32__').
+	].
+    ].
+
     includes := ''.
     incDir := Smalltalk getSystemFileName:'include'.
     incDir notNil ifTrue:[