--- a/ExternalLibraryFunction.st	Thu Sep 20 17:26:03 2012 +0200
+++ b/ExternalLibraryFunction.st	Tue Sep 25 12:11:36 2012 +0200
@@ -570,19 +570,27 @@
 printOn:aStream
     aStream nextPutAll:'<'.
     self isCallTypeAPI ifTrue:[
-	'API:' printOn:aStream.
+        'API:' printOn:aStream.
     ] ifFalse:[
-	'C:' printOn:aStream.
+        self isCallTypeOLE ifTrue:[
+            'OLE:' printOn:aStream.
+        ] ifFalse:[
+            self isCallTypeC ifTrue:[
+                'C:' printOn:aStream.
+            ] ifFalse:[
+                self error.
+            ].
+        ].
     ].
     aStream nextPutAll:' '.
     name printOn:aStream.
     moduleName notNil ifTrue:[
-	aStream nextPutAll:' module:'.
-	moduleName printOn:aStream.
+        aStream nextPutAll:' module:'.
+        moduleName printOn:aStream.
     ].
     aStream nextPutAll:'>'.
 
-    "Modified: / 01-08-2006 / 15:21:42 / cg"
+    "Modified: / 25-09-2012 / 12:06:14 / cg"
 ! !
 
 !ExternalLibraryFunction methodsFor:'private'!
@@ -1628,7 +1636,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.86 2012-04-15 16:58:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.87 2012-09-25 10:11:36 cg Exp $'
 !
 
 version_SVN