diff --git a/src/testsuite.in b/src/testsuite.in
index 5fd054f5691a015dd8d71e31b4ad8b593308896f..8ef87ec6321a9681ef6eecc37be118f9ab9bea91 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.230 1999/11/20 12:43:19 mirar Exp $"]])
+test_true([["$Id: testsuite.in,v 1.231 1999/11/22 23:34:54 noring Exp $"]])
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -3025,6 +3025,11 @@ test_eq([[combine_path("/","../../foo")]],"/foo")
 test_eq([[combine_path("./foobar/.","..")]],".")
 test_eq([[combine_path("/","foo","bar","gazonk")]],"/foo/bar/gazonk")
 
+// - Stdio.append_path
+test_eq([[ Stdio.append_path("../foo/", "../bar") ]], "../foo/bar")
+test_eq([[ Stdio.append_path("../foo/", "../bar", "../baz") ]], "../foo/bar/baz")
+test_eq([[ Stdio.append_path("../foo/", "../bar", "../baz", "../fie/../faz") ]], "../foo/bar/baz/faz")
+
 // - compile_file
 // FIXME: add tests for compile_file