Index: BL/EC/DynaPlug.cls.xml
===================================================================
diff -u -r1133 -r1523
--- BL/EC/DynaPlug.cls.xml	(.../DynaPlug.cls.xml)	(revision 1133)
+++ BL/EC/DynaPlug.cls.xml	(.../DynaPlug.cls.xml)	(revision 1523)
@@ -407,10 +407,11 @@
     If flagIgnored Set flagSave = $$$shHiddenByDynaPlug
     Else  Set flagSave = $$$shShownForKlant
     
-    Set Result = ( WSDataIO.UpdateWSOrdPropts(WSOrdID,$$$WSInternalSecureKey,"ShowInHist",flagSave) = "" )
-   
+    set resUpdateWSOrdPropts = WSDataIO.UpdateWSOrdPropts(WSOrdID,$$$WSInternalSecureKey,"ShowInHist",flagSave)
+    
+    Set Result = ( resUpdateWSOrdPropts = "" )
+    
     Set $ZTRAP=""
-
     Quit Result
 
 onSetWSOrdShowInHistory