--- a/FileBrowser.st	Fri Oct 26 10:14:04 2001 +0200
+++ b/FileBrowser.st	Fri Oct 26 10:15:52 2001 +0200
@@ -2020,6 +2020,12 @@
                     SmalltalkInterchangeFileManager newForFileIn
                         fileName: path pathName;
                         fileIn.
+                ] ifFalse:[ (path hasSuffix:'pcl') ifTrue:[
+                    Parcel isNil ifTrue:[
+                        self warn:'Parcel support not loaded.'
+                    ] ifFalse:[
+                        Parcel loadParcelFrom: path pathName
+                    ]
                 ] ifFalse:[
                     "/ loading a regular (chunk) or xml source file
                     aStream := path readStream.
@@ -2035,7 +2041,7 @@
                             aStream close
                         ]
                     ]
-                ]]
+                ]]]
             ]]
         ].
         currentFileInFileName := prevCurrentFileName
@@ -7404,5 +7410,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.429 2001-10-22 08:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.430 2001-10-26 08:15:52 cg Exp $'
 ! !