--- a/core/builtins/which.cif	Mon Sep 20 16:46:34 2010 +0100
+++ b/core/builtins/which.cif	Wed Sep 22 10:56:39 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