--- a/Smalltalk.st	Mon Oct 23 17:50:42 1995 +0100
+++ b/Smalltalk.st	Mon Oct 23 17:55:03 1995 +0100
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.66 1995-09-08 16:46:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.67 1995-10-23 16:54:40 cg Exp $
 '!
 
 "
@@ -56,7 +56,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.66 1995-09-08 16:46:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.67 1995-10-23 16:54:40 cg Exp $
 "
 !
 
@@ -156,7 +156,7 @@
     "return the revision number.
      Incremented for releases which fix bugs/add features."
 
-    ^ 1
+    ^ 2
 
     " 
      Smalltalk releaseNr 
@@ -186,7 +186,7 @@
     RETURN ( _MKSTRING(VERSIONDATE_STRING COMMA_SND) );
 #endif
 %}.
-    ^ '16-aug-1995'
+    ^ '12-oct-1995'
 
     "
      Smalltalk versionDate
@@ -445,6 +445,9 @@
     |p homePath|
 
     homePath := OperatingSystem getHomeDirectory.
+    homePath isNil ifTrue:[
+	homePath := '.'
+    ].
 
     "
      the path is set to search files first locally
@@ -487,10 +490,11 @@
 
 start
     "main startup, if there is a Display, initialize it
-     and start dispatching; otherwise go into a read-eval-print loop"
-
-    |idx|
-
+     and start dispatching; otherwise go into a read-eval-print loop."
+
+    |idx haveStartupFile|
+
+    haveStartupFile := true.
     Initializing := true.
 
     "
@@ -512,7 +516,8 @@
 	(self secureFileIn:((Arguments at:1) , '.rc')) ifFalse:[
 	    "no .rc file where executable is; try default smalltalk.rc"
 	    (self secureFileIn:'smalltalk.rc') ifFalse:[
-		Transcript showCr:'no startup rc-file found'
+		Transcript showCr:'SMALLTALK: no startup rc-file found. Going into line-by-line interpreter.'.
+		haveStartupFile := false.
 	    ]
 	].
     ].
@@ -554,7 +559,7 @@
      if view-classes exist, start dispatching;
      otherwise go into a read-eval-print loop
     "
-    Display notNil ifTrue:[
+    (Display notNil and:[haveStartupFile]) ifTrue:[
 	Processor dispatchLoop
     ] ifFalse:[
 	self readEvalPrint
@@ -979,6 +984,15 @@
     "Smalltalk printStackBacktrace"
 !
 
+printSymbols
+    "dump the internal symbol table.
+     WARNING: this method is for debugging only
+	      it will be removed without notice"
+%{
+    __dumpSymbols();
+%}
+!
+
 fatalAbort:aMessage
     "report a fatal-error; print a stack backtrace and exit with core dump
      (You may turn off the stack print with debugPrinting:false)"