--- a/PrintfScanf.st	Tue Sep 13 12:09:19 2016 +0200
+++ b/PrintfScanf.st	Wed Sep 14 07:09:56 2016 +0200
@@ -1,10 +1,12 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic2' }"
 
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#PrintfScanf
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'Singleton'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -84,6 +86,15 @@
 "
 ! !
 
+!PrintfScanf class methodsFor:'instance creation'!
+
+new
+    Singleton isNil ifTrue:[
+        Singleton := self basicNew
+    ].    
+    ^ Singleton
+! !
+
 !PrintfScanf class methodsFor:'printing'!
 
 printf:formatString arguments:args