--- a/Smalltalk.st	Thu Jul 22 18:03:48 1999 +0200
+++ b/Smalltalk.st	Thu Jul 22 18:05:59 1999 +0200
@@ -1682,6 +1682,48 @@
     "Modified: / 14.6.1998 / 15:54:03 / cg"
 ! !
 
+!Smalltalk class methodsFor:'queries-system'!
+
+isSmalltalkV
+    "return false here - this may be useful to write portable
+     applications - add #isSmalltalkV to your smalltalkV,
+     returning true there."
+
+    ^ false
+!
+
+isSmalltalkX
+    "return true here - this may be useful to write portable
+     applications - add #isSmalltalkX to your other smalltalks,
+     returning false there."
+
+    ^ true
+!
+
+isSqueak
+    "return false here - this may be useful to write portable
+     applications - add #isSqueak to your squeak,
+     returning true there."
+
+    ^ false
+!
+
+isVisualAge
+    "return false here - this may be useful to write portable
+     applications - add #isVisualAge to your visualAge,
+     returning true there."
+
+    ^ false
+!
+
+isVisualWorks
+    "return false here - this may be useful to write portable
+     applications - add #isVisualWorks to your visualWorks,
+     returning true there."
+
+    ^ false
+! !
+
 !Smalltalk class methodsFor:'startup'!
 
 mainStartup:graphicalMode
@@ -4112,46 +4154,6 @@
     "Modified: 13.12.1995 / 17:45:47 / cg"
 !
 
-isSmalltalkV
-    "return false here - this may be useful to write portable
-     applications - add #isSmalltalkV to your smalltalkV,
-     returning true there."
-
-    ^ false
-!
-
-isSmalltalkX
-    "return true here - this may be useful to write portable
-     applications - add #isSmalltalkX to your other smalltalks,
-     returning false there."
-
-    ^ true
-!
-
-isSqueak
-    "return false here - this may be useful to write portable
-     applications - add #isSqueak to your squeak,
-     returning true there."
-
-    ^ false
-!
-
-isVisualAge
-    "return false here - this may be useful to write portable
-     applications - add #isVisualAge to your visualAge,
-     returning true there."
-
-    ^ false
-!
-
-isVisualWorks
-    "return false here - this may be useful to write portable
-     applications - add #isVisualWorks to your visualWorks,
-     returning true there."
-
-    ^ false
-!
-
 majorVersionNr
     "{ Pragma: +optSpace }"
 
@@ -4304,5 +4306,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.327 1999-07-22 16:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.328 1999-07-22 16:05:59 cg Exp $'
 ! !