--- a/Smalltalk.st	Sun Aug 01 12:11:07 2010 +0100
+++ b/Smalltalk.st	Tue Aug 10 09:55:15 2010 +0100
@@ -1031,7 +1031,6 @@
     "Created: 20.6.1997 / 16:58:28 / cg"
 ! !
 
-
 !Smalltalk class methodsFor:'browsing'!
 
 browseAllCallsOn:aSelectorSymbol
@@ -5784,16 +5783,20 @@
     "Modified: 31.10.1996 / 16:57:24 / cg"
 !
 
-secureFileIn:aFileName
+secureFileIn:aFileName 
     "read in the named file, looking for it at standard places.
-     Catch any error during fileIn. Return true if ok, false if failed"
-
+     Catch various errors during fileIn. 
+     Return true if ok, false if failed"
+    
     |retVal|
 
     retVal := false.
-    (SignalSet with:AbortOperationRequest with:TerminateProcessRequest)
-        handle:[:ex | ex return ]
-        do:[ retVal := self fileIn:aFileName ].
+    (SignalSet 
+        with:AbortOperationRequest
+        with:TerminateProcessRequest
+        with:Parser parseErrorSignal) 
+            handle:[:ex | ex return ]
+            do:[ retVal := self fileIn:aFileName ].
     ^ retVal
 !
 
@@ -7462,15 +7465,15 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Smalltalk.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Smalltalk.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.936 2010/05/07 12:37:03 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.937 2010/08/06 13:05:23 stefan Exp '
 !
 
 version_SVN
-    ^ '$Id: Smalltalk.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Smalltalk.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 ! !
 
 
@@ -7483,3 +7486,4 @@
 
 
 
+