diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 58fdcfdc10..0334469164 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,7 +1,8 @@
 Wed May 05 09:24:22 1999  Gonzalo A. Diethelm  <Gonzalo.Diethelm@jda.cl>
 
-	* Added back include/set.ch, now in lowercase; same thing for
-	tests/working/block2.prg.
+	* Added back include/Set.ch, and tests/working/block2.PRG; they
+	can' be renamed through CVS, and the repository will have to be
+	updated by hand.
 
 Wed May 05 09:19:23 1999  Gonzalo A. Diethelm  <Gonzalo.Diethelm@jda.cl>
 
diff --git a/harbour/tests/working/block2.PRG b/harbour/tests/working/block2.PRG
new file mode 100644
index 0000000000..eee3f525a7
--- /dev/null
+++ b/harbour/tests/working/block2.PRG
@@ -0,0 +1,16 @@
+// CodeBlocks management
+
+function Main()
+
+   local bBlock := GenBlock()
+
+   Eval( bBlock, "I am a ", "codeblock" )
+
+   QOut( "ok" )
+
+return nil
+
+function GenBlock()
+
+return { | c, d | QOut( c + d ) }
+