Index: /issm/trunk/src/m/utils/OS/clearall.m
===================================================================
--- /issm/trunk/src/m/utils/OS/clearall.m	(revision 2269)
+++ /issm/trunk/src/m/utils/OS/clearall.m	(revision 2270)
@@ -1,10 +1,10 @@
 %script that erases all variables except ISSM_DIR
-list=whos;
-for i=1:length(list),
-	if ~strcmpi(list(i).name,'ISSM_DIR'),
-		clear(list(i).name);
-	end
-end
-clear list;
-clear i;
 
+%get all localvariables
+Lvariables=evalin('base','who');
+
+%remove ISSM_DIR from this list
+Lvariables=Lvariables(find(~strcmp(Lvariables,'ISSM_DIR')));
+
+%clear all
+clear(Lvariables{:},'Lvariables')