@@ -2483,10 +2483,14 @@
 
 ;; simple lock. improve and converge on this one.
 ;;
 (define (common:simple-lock keyname)
   (rmt:no-sync-get-lock keyname))
+
+(define (common:simple-unlock keyname #!key (force #f))
+  (rmt:no-sync-del! keyname))
+
 
 ;;======================================================================
 ;;
 ;;======================================================================