# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1135355792 -3600
# Node ID d327b2c1b4869c002b85d6180c6c1ab0ac31053d
# Parent  88b89fac0f99d626ed85aa23527086fe154cd615
*** empty log message ***

diff -r 88b89fac0f99 -r d327b2c1b486 smalltalk.rc
--- a/smalltalk.rc	Fri Dec 23 11:51:37 2005 +0100
+++ b/smalltalk.rc	Fri Dec 23 17:36:32 2005 +0100
@@ -99,7 +99,10 @@
 
 |path pathOfSTXExecutable|
 
-'systemPath before: ' print. Smalltalk systemPath printCR.
+'systemPath before: ' infoPrint. Smalltalk systemPath infoPrintCR.
+'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR.
+'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR.
+
 pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory.
 
 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
@@ -130,7 +133,7 @@
 
 (path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
     Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).
-    'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' printCR.
+    'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' infoPrintCR.
 ] ifFalse:[
     "/
     "/ if running in the development environment,
@@ -138,7 +141,7 @@
     "/
     (pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists ifTrue:[
 	Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName.
-	'smalltalk.rc [info]: setting packagePath for local operation' printCR.
+	'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR.
     ].
 
     "/