--- gforth/kernel/cond.fs	2010/12/31 18:09:02	1.24
+++ gforth/kernel/cond.fs	2011/08/19 17:57:56	1.25
@@ -91,6 +91,9 @@ variable backedge-locals
  rdrop
  dup cs-item? ; 
 
+: CS-DROP ( dest -- ) \ gforth
+    dest? 2drop ;
+
 : cs-push-part ( -- list addr )
  locals-list @ here ;