diff --git a/harbour/ChangeLog.txt b/harbour/ChangeLog.txt
index 85f706665c..ba07f1731e 100644
--- a/harbour/ChangeLog.txt
+++ b/harbour/ChangeLog.txt
@@ -10,6 +10,15 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2013-03-15 04:18 UTC+0100 Viktor Szakats (harbour syenar.net)
+  + tests/fwdref.prg
+    + added TOFIX and demonstration for this bug by Kevin Carmody:
+        https://sourceforge.net/tracker/?func=detail&aid=1635310&group_id=681&atid=100681
+
+  + tests/sortbug.prg
+    + added TOFIX and demonstration for this bug:
+        https://sourceforge.net/tracker/?func=detail&aid=2096950&group_id=681&atid=100681
+
 2013-03-15 03:24 UTC+0100 Viktor Szakats (harbour syenar.net)
   * README.txt
     + updated with new git links
diff --git a/harbour/tests/fwdref.prg b/harbour/tests/fwdref.prg
new file mode 100644
index 0000000000..28eb3611ad
--- /dev/null
+++ b/harbour/tests/fwdref.prg
@@ -0,0 +1,9 @@
+
+/* TOFIX: Compiles fine with Clipper, fails with Harbour */
+
+PROCEDURE Main()
+
+   LOCAL bPad := {| nNum | nNum + nSpan }
+   LOCAL nSpan := 1
+
+   RETURN
diff --git a/harbour/tests/sortbug.prg b/harbour/tests/sortbug.prg
new file mode 100644
index 0000000000..8eedef4368
--- /dev/null
+++ b/harbour/tests/sortbug.prg
@@ -0,0 +1,24 @@
+
+PROCEDURE Main()
+
+   dbCreate( "testsort", { { "ITEM", "N", 10, 2 } } )
+
+   USE testsort
+   dbAppend() ; FIELD->ITEM := 5.00
+   dbAppend() ; FIELD->ITEM := -5.12
+   dbAppend() ; FIELD->ITEM := 6.00
+   dbAppend() ; FIELD->ITEM := 7.00
+   dbAppend() ; FIELD->ITEM := -5.00
+
+   SORT TO tempsort ON FIELD->ITEM /D
+
+   USE tempsort
+   dbEval( {|| QOut( FIELD->ITEM ) } )
+
+   /* TOFIX: To work like in Cl*pper: 7.00, 6.00, 5.00, -5.00, -5.12 */
+
+   dbCloseArea()
+   hb_dbDrop( "testsort" )
+   hb_dbDrop( "tempsort" )
+
+   RETURN