--- a/ExternalLibrary.st	Tue May 08 23:16:38 2018 +0200
+++ b/ExternalLibrary.st	Tue May 08 23:31:15 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by eXept Software AG
               All Rights Reserved
@@ -47,6 +49,24 @@
 "
     This is only a hook for compatibility (to be able to fileIn squeak libraries)
 "
+!
+
+externalCallFailed
+    "{ Pragma: +optSpace }"
+
+    "report an error that some external libraray call failed.
+     The error is reported by raising the PrimitiveFailure exception."
+     
+    "Copy on the inst side, so subclasses may make their calls on either side"
+
+    <resource: #skipInDebuggersWalkBack>
+
+    |sender|
+
+    sender := thisContext sender.
+    ^ PrimitiveFailure 
+        raiseRequestWith:(Message selector:sender selector arguments:sender args)
+        in:sender.
 ! !
 
 !ExternalLibrary methodsFor:'error reporting'!
@@ -57,19 +77,21 @@
     "report an error that some external libraray call failed.
      The error is reported by raising the PrimitiveFailure exception."
 
+    "Copy on the class side, so subclasses may make their calls on either side"
+
     <resource: #skipInDebuggersWalkBack>
 
     |sender|
 
     sender := thisContext sender.
-
-    ^ PrimitiveFailure raiseRequestWith:(Message selector:sender selector arguments:sender args)
-                       in:sender.
+    ^ PrimitiveFailure 
+        raiseRequestWith:(Message selector:sender selector arguments:sender args)
+        in:sender.
 ! !
 
 !ExternalLibrary class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.4 2015-02-09 09:43:30 cg Exp $'
+    ^ '$Header$'
 ! !