--- a/AbstractFileBrowser.st	Thu Aug 01 09:41:46 2013 +0200
+++ b/AbstractFileBrowser.st	Thu Aug 01 17:09:45 2013 +0200
@@ -3872,6 +3872,7 @@
     ^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
 ! !
 
+
 !AbstractFileBrowser methodsFor:'aspects-history'!
 
 dirHistory
@@ -5747,6 +5748,7 @@
     ]
 ! !
 
+
 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 
 mercurialAdd
@@ -7224,23 +7226,9 @@
 installAsAutoloaded:aFilename
     "install aFilename as autoloaded class"
 
-    |chunks filename|
-
-    filename := aFilename asFilename.
-
-    ChangeSet::InvalidChangeChunkError handle:[:ex |
-        ^ self
-    ] do:[
-        filename readingFileDo:[:s|
-            chunks := ChangeSet fromStream:s while:[:chunk | chunk isMethodChange not].
-        ].
-    ].
-
-    chunks 
-        select:[:eachChunk | eachChunk isClassDefinitionChange]
-        thenDo:[:eachClassChunk | 
-                eachClassChunk installAsAutoloadedClassIfPublicWithFilename:filename asAbsoluteFilename "withoutSuffix" name "baseName"
-        ].
+    Smalltalk installAutoloadedClassFromSourceFile:aFilename
+
+    "Modified: / 01-08-2013 / 16:58:09 / cg"
 !
 
 joinSelectedFiles
@@ -8276,6 +8264,8 @@
     ^ false
 ! !
 
+
+
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -9210,10 +9200,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.535 2013-07-29 14:07:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.536 2013-08-01 15:09:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.535 2013-07-29 14:07:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.536 2013-08-01 15:09:45 cg Exp $'
 ! !