--- a/libinterp/interpfcn/variables.cc	Mon Sep 17 22:35:38 2012 -0400
+++ b/libinterp/interpfcn/variables.cc	Mon Sep 17 22:35:43 2012 -0400
@@ -2340,8 +2340,8 @@
     {
       if (argc == 1)
         {
-          do_clear_globals (argv, argc, 1);
-          do_clear_variables (argv, argc, 1);
+          do_clear_globals (argv, argc, true);
+          do_clear_variables (argv, argc, true);
         }
       else
         {
@@ -2460,6 +2460,12 @@
   return retval;
 }
 
+void
+clear_current_scope (void)
+{
+  Fclear ();
+}
+
 DEFUN (whos_line_format, args, nargout,
   "-*- texinfo -*-\n\
 @deftypefn  {Built-in Function} {@var{val} =} whos_line_format ()\n\