--- a/core/builtins/which.cif	Wed Sep 15 00:45:50 2010 +0100
+++ b/core/builtins/which.cif	Fri Sep 17 20:24:30 2010 +0100
@@ -24,3 +24,7 @@
 
 Copyright (c) 2006-2010 Accenture. All rights reserved.
 
+==smoke-test
+
+which which | export -s RESULT
+var RESULT == "which: built-in command 'which'^r^n" || $Error