Index: library/nx/nx.tcl
===================================================================
diff -u -rf024f89a488f29a8745fcb928c6b7c94d0486d8f -r46f5a635968d0c3dfe4c81f80e4ac21350096394
--- library/nx/nx.tcl	(.../nx.tcl)	(revision f024f89a488f29a8745fcb928c6b7c94d0486d8f)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 46f5a635968d0c3dfe4c81f80e4ac21350096394)
@@ -1519,7 +1519,9 @@
   ::nsf::method::alias RelationSlot value=get ::nsf::relation::get
 
   RelationSlot public method value=clear {obj prop} {
+    set result [::nsf::relation::set $obj $prop]
     ::nsf::relation::set $obj $prop {}
+    return $result
   }
 
   RelationSlot protected method delete_value {obj prop old value} {