--- a/PCFilename.st	Wed Jul 22 22:43:09 2009 +0200
+++ b/PCFilename.st	Wed Jul 22 22:44:27 2009 +0200
@@ -449,19 +449,24 @@
 fullAlternativePathName
     "return my complete MSDOS-path"
     
-    |altNameComponent fullAlternativePath fullAlternativeDirectoryName|
+    |altNameComponent fullAlternativePath fullAlternativeDirectoryName info|
 
     self isRootDirectory ifTrue:[
         ^ nameString
     ].
+
     (self name endsWith:$\) ifTrue:[
         ^ (self class named:self pathName) fullAlternativePathName
     ].
-    altNameComponent := self info alternativeName.
+
+    info := self info. 
+    info notNil ifTrue:[
+        ^ info alternativePathName.
+    ].
+
     fullAlternativeDirectoryName := self directory fullAlternativePathName.
     (fullAlternativeDirectoryName endsWith:$\) ifTrue:[
-        fullAlternativePath := fullAlternativeDirectoryName 
-                    , (altNameComponent ? self baseName).
+        fullAlternativePath := fullAlternativeDirectoryName, self baseName.
     ] ifFalse:[
         fullAlternativePath := fullAlternativeDirectoryName , '\' , (altNameComponent ? self baseName).
     ].
@@ -471,7 +476,7 @@
      'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName 
      'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName asFilename exists
      'C:\' asFilename fullAlternativePathName  
-     self halt. 'C:\Dokumente und Einstellungen\str\Desktop\output folder\' asFilename fullAlternativePathName asFilename
+     'C:\Dokumente und Einstellungen\str\Desktop\output folder\' asFilename fullAlternativePathName asFilename
     "
 !
 
@@ -868,5 +873,5 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.47 2008-12-18 16:17:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.48 2009-07-22 20:44:27 stefan Exp $'
 ! !