--- a/Smalltalk.st	Mon Nov 08 11:04:39 1999 +0100
+++ b/Smalltalk.st	Mon Nov 08 15:40:35 1999 +0100
@@ -15,11 +15,12 @@
 	classVariableNames:'StartBlocks ImageStartBlocks ExitBlocks CachedClasses SystemPath
 		StartupClass StartupSelector StartupArguments CommandLine
 		CommandLineArguments CachedAbbreviations SilentLoading
-		Initializing StandAlone HeadlessOperation LogDoits LoadBinaries RealSystemPath
-		ResourcePath SourcePath BitmapPath BinaryPath FileInPath
-		BinaryDirName ResourceDirName SourceDirName BitmapDirName
-		FileInDirName ChangeFileName ImageStartTime ImageRestartTime
-		DemoMode SaveEmergencyImage SpecialObjectArray LoadedPackages'
+		Initializing StandAlone HeadlessOperation LogDoits LoadBinaries
+		RealSystemPath ResourcePath SourcePath BitmapPath BinaryPath
+		FileInPath BinaryDirName ResourceDirName SourceDirName
+		BitmapDirName FileInDirName ChangeFileName ImageStartTime
+		ImageRestartTime DemoMode SaveEmergencyImage SpecialObjectArray
+		LoadedPackages'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -1847,6 +1848,22 @@
 
 !Smalltalk class methodsFor:'queries-system'!
 
+isDolphinSmalltalk
+    "return false here - this may be useful to write portable
+     applications - add #isDolphinSmalltalk to your dolphin,
+     returning true there."
+
+    ^ false
+!
+
+isSmalltalkMT
+    "return false here - this may be useful to write portable
+     applications - add #isSmalltalkMT to your smalltalk-MT,
+     returning true there."
+
+    ^ false
+!
+
 isSmalltalkV
     "return false here - this may be useful to write portable
      applications - add #isSmalltalkV to your smalltalkV,
@@ -4910,5 +4927,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.370 1999-10-28 13:58:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.371 1999-11-08 14:40:35 cg Exp $'
 ! !