diff --git a/ansi-tests/loop6.lsp b/ansi-tests/loop6.lsp
index f3ca243e1eec2860471ef258e7011e40177da07c..3dc41231c1a9bd2031304685fa1c956608f89ad7 100644
--- a/ansi-tests/loop6.lsp
+++ b/ansi-tests/loop6.lsp
@@ -244,6 +244,14 @@
 	using (hash-value (v1 . v2)) sum (+ v1 v2))
   21)
 
+(deftest loop.6.39
+  (loop as x being the hash-value of *loop.6.hash.1* sum x)
+  6)
+
+(deftest loop.6.40
+  (sort (loop as x being the hash-key of *loop.6.hash.1* collect x)
+	#'symbol<)
+  (a b c))
 
 ;;; Error tests