--- a/ShortFloat.st	Wed Mar 20 12:47:41 2013 +0100
+++ b/ShortFloat.st	Wed Mar 20 15:57:14 2013 +0100
@@ -450,7 +450,6 @@
     "Modified: 23.4.1996 / 09:26:45 / cg"
 ! !
 
-
 !ShortFloat class methodsFor:'queries'!
 
 exponentCharacter
@@ -475,6 +474,12 @@
      Machines with non-IEEE format are VAXed and IBM370-type systems
      (among others). Today, most systems use IEEE format floats."
 
+%{
+#ifdef __s390__
+    RETURN(false);
+#endif
+%}.
+
     ^ true "/ this may be a lie
 !
 
@@ -1843,10 +1848,10 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.118 2013-02-04 17:17:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.119 2013-03-20 14:57:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.118 2013-02-04 17:17:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.119 2013-03-20 14:57:14 cg Exp $'
 ! !