--- a/Smalltalk.st	Fri Feb 28 11:48:32 2014 +0100
+++ b/Smalltalk.st	Fri Feb 28 20:53:35 2014 +0100
@@ -12,21 +12,21 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Smalltalk
-        instanceVariableNames:''
-        classVariableNames:'StartBlocks ImageStartBlocks ExitBlocks CachedClasses
-                NumberOfClassesHint SystemPath StartupClass StartupSelector
-                StartupArguments CommandLine CommandName CommandLineArguments
-                CachedAbbreviations VerboseLoading SilentLoading Initializing
-                StandAlone HeadlessOperation IsPlugin IsSharedLibraryComponent
-                IsSTScript DebuggingStandAlone LogDoits LoadBinaries
-                RealSystemPath ResourcePath SourcePath BinaryPath FileInPath
-                PackagePath BinaryDirName ResourceDirName SourceDirName
-                BitmapDirName PackageDirName FileInDirName ChangeFileName
-                ImageStartTime ImageRestartTime DemoMode SaveEmergencyImage
-                SpecialObjectArray CallbackSignal ClassesFailedToInitialize
-                HasNoConsole IgnoreHalt PackageToPathMapping'
-        poolDictionaries:''
-        category:'System-Support'
+	instanceVariableNames:''
+	classVariableNames:'StartBlocks ImageStartBlocks ExitBlocks CachedClasses
+		NumberOfClassesHint SystemPath StartupClass StartupSelector
+		StartupArguments CommandLine CommandName CommandLineArguments
+		CachedAbbreviations VerboseLoading SilentLoading Initializing
+		StandAlone HeadlessOperation IsPlugin IsSharedLibraryComponent
+		IsSTScript DebuggingStandAlone LogDoits LoadBinaries
+		RealSystemPath ResourcePath SourcePath BinaryPath FileInPath
+		PackagePath BinaryDirName ResourceDirName SourceDirName
+		BitmapDirName PackageDirName FileInDirName ChangeFileName
+		ImageStartTime ImageRestartTime DemoMode SaveEmergencyImage
+		SpecialObjectArray CallbackSignal ClassesFailedToInitialize
+		HasNoConsole IgnoreHalt PackageToPathMapping'
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 Smalltalk comment:''
@@ -238,6 +238,11 @@
         "
         Compiler := Parser
     ].
+    Parser notNil ifTrue:[
+        "/ needed in case we run into a debugger during startup,
+        "/ so we can eval expressions there.
+        Parser initialize.
+    ].
 
     "/
     "/ start catching SIGSEGV and SIGBUS
@@ -8198,11 +8203,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1066 2014-02-26 09:58:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1067 2014-02-28 19:53:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1066 2014-02-26 09:58:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1067 2014-02-28 19:53:35 cg Exp $'
 !
 
 version_SVN