--- a/WorkspaceApplication.st	Sat Nov 24 16:38:39 2001 +0100
+++ b/WorkspaceApplication.st	Sat Nov 24 16:39:30 2001 +0100
@@ -618,7 +618,7 @@
 
     (self askIfModified:'Text was modified. Load anyway ?' yesButton:'Load') ifFalse:[ ^ self].
 
-    file := Dialog requestFileName:'Load file:' default:'file.wsp'.
+    file := Dialog requestFileName:'Load file:' default:'file.wsp' pattern:'*.wsp'.
     file size > 0 ifTrue:[
         self loadFile:file
     ]
@@ -782,5 +782,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.23 2001-11-09 17:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.24 2001-11-24 15:39:30 cg Exp $'
 ! !