--- ray/src/util/genklemsamp.pl	2012/06/28 17:35:18	2.12
+++ ray/src/util/genklemsamp.pl	2016/02/28 00:28:36	2.13
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genklemsamp.pl,v 2.12 2012/06/28 17:35:18 greg Exp $
+# RCSid $Id: genklemsamp.pl,v 2.13 2016/02/28 00:28:36 greg Exp $
 #
 # Sample Klems (full) directions impinging on surface(s)
 #
@@ -76,7 +76,7 @@ if ($windoz) {
 			"-e \"and(a,b):if(a,b,a);sq(x):x*x\" -e \"$vwset\" " .
 			q{-e "nOK=sq(Vdx*$5+Vdy*$6+Vdz*$7)-.999" } .
 			" > $td\\origins.txt";
-	$rmtmp = "rmdir /S /Q $td";
+	$rmtmp = "rd /S /Q $td";
 } else {
 	$td = mkdtemp("/tmp/genklemsamp.XXXXXX");
 	chomp $td;