--- scripts/plot/clf.m.orig	2009-02-18 07:57:46.000000000 +0100
+++ scripts/plot/clf.m	2009-02-26 08:28:02.000000000 +0100
@@ -71,7 +71,11 @@
     hc = get (hfig, "children");
   endif
 
+  set (hfig, "currentaxes", []);
   ## Delete the children.
-  delete (hc);
-
+  for k = get (hfig, "children")
+    if (ishandle (k))
+      delete (k);
+    endif
+  endfor
 endfunction