diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 587ee57485..7c2d7e93ff 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,10 @@
+19990602-16:00 EDT David G. Holm <dholm@jsd-llc.com>
+  + tests/broken/codebloc.prg
+    - Output doesn't match Clipper. Clipper outputs NIL and 42, 
+      (both 5.2e and 5.3b), but Harbour outputs NIL and NIL (as
+      tested with Harbour built using Borland C++ 3.1 using the
+      build31.bat and makefile.b31 files)
+
 19990602-22:10 CET Eddie Runia
   * tests/working/run_exp.h
     gtApi and new console functions added
diff --git a/harbour/tests/broken/codebloc.prg b/harbour/tests/broken/codebloc.prg
new file mode 100644
index 0000000000..b9a180c825
--- /dev/null
+++ b/harbour/tests/broken/codebloc.prg
@@ -0,0 +1,19 @@
+Function Main()
+Local nTest
+Local bBlock1 := MakeBlock()
+Local bBlock2 := {|| DoThing( @nTest ), qout( nTest ) }
+
+   eval( bBlock1 )
+   eval( bBlock2 )
+
+Return( NIL )
+
+Function MakeBlock()
+Local nTest
+Return( {|| DoThing( @nTest ), qout( nTest ) } )
+
+Function DoThing( n )
+
+   n := 42
+
+Return( NIL )