diff --git a/cl-box.lisp b/cl-box.lisp
index 35902c1..9c00734 100644
--- a/cl-box.lisp
+++ b/cl-box.lisp
@@ -69,6 +69,10 @@
 		(<- () (<-! ,name)))
 	   ,@things)))))
 
+(defun clone(box)
+  (with box
+	(make-box (<-))))
+
 ))
 
 (defun test ()