diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf
index ea36917..7af0269 100644
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@@ -3194,14 +3194,18 @@ type tgtkapis = class() //gtk
 		  begin
 		      if ifstring(p) then 
 		      begin 
-		          for i := length(p) downto 1 do 
+		          if fileexists("","/usr/bin/caja") then 
 		          begin
-		              if p[i]="/" then 
-		              begin
-		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
-		                  break;
-		              end 
-		          end 		          
+		              for i := length(p) downto 1 do 
+    		          begin
+    		              if p[i]="/" then 
+    		              begin
+    		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+    		                  break;
+    		              end 
+    		          end 
+    		          return ;//		
+		          end 		                    
 		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
 		          return 1;
 		      end