Index: HADETIK.mac.rou
===================================================================
diff -u -r59226 -r59227
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 59226)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 59227)
@@ -545,15 +545,18 @@
 	For  Set VolgNr=$O(^RES(LblGroep,"LBLK",LabelType,VolgNr)) Quit:VolgNr=""  Do
  	. Set Rec=^RES(LblGroep,"LBLK",LabelType,VolgNr)
  	. Set Check=1
-	 .If $L($P(Rec,"`",3)) Set Check=0 If @$P(Rec,"`",3) Set Check=1  ; Conditioneel
+	. If $L($P(Rec,"`",3)) Set Check=0 If @$P(Rec,"`",3) Set Check=1  ; Conditioneel
  	. If Check Do
  	. . Set Print=$P(Rec,"`",2)
  	. . Set:Print["{" Print=$$REPLACE5^vhRtn1(Print,"{","$$Label^vhPRINTER(""","}",""")") ; label vervangen door $$Label^vhPRINTER("label")
- 	. . Write $$VervangNietPrintbareKaraktersDoorSpatie(@(Print))
+ 	. . Write $$VervangNietPrintbareKaraktersDoorSpatie( $$GeefWaardeVanPrintRef(Print) )
  	. Write:VolgNr<Last Delim
 	Write $$$CRLF
 	Quit
  
+GeefWaardeVanPrintRef(PrintRef)
+	// LET OP : deze functie maakt gebruik van VEEL globale variabelen !!!   Dus niet zomaar verplaatsen naar ProcedureBlock methods. 
+	Quit @PrintRef
  
  ;
 INIT