Index: sandrep.tcl
===================================================================
RCS file: /var/cvs/alt/modules/sandman/sandlib/sandrep.tcl,v
retrieving revision 1.351
diff -u -r1.351 sandrep.tcl
--- sandrep.tcl	2003/01/27 17:03:14	1.351
+++ sandrep.tcl	2003/01/28 16:08:08
@@ -105,7 +105,7 @@
 	    keylset rep ccachepath $ccachedir
 	    keyldel rep ccachedir
 	} else {
-	    keylset rep ccachepath [file join $layout(ccachedir) [keylget rep repos]]
+	    keylset rep ccachepath [file join $layout(ccachedir) $r]
 	}
 
 	keylset rep pocketdir [file join [keylget rep topdir] pocket]