Index: ossp-pkg/al/al_test.c
RCS File: /v/ossp/cvs/ossp-pkg/al/al_test.c,v
rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/al/al_test.c,v' 2>/dev/null
--- al_test.c	2002/12/16 15:02:14	1.6
+++ al_test.c	2002/12/16 15:03:18	1.7
@@ -376,14 +376,14 @@
 
     ts_test_check(TS_CTX, "exception handling");
     caught = 0;
+    al = NULL;
     ex_try {
-        al = NULL;
         al_create(&al);
-        al_append_bytes(&al, S("DUMMYDUMMY"), NULL);
+        al_append_bytes(al, S("DUMMYDUMMY"), NULL);
         al_splice(al, 50, 1, NULL, NULL);
     }
     ex_cleanup {
-        if (al != NULL) al_destroy(&al);
+        if (al != NULL) al_destroy(al);
     }
     ex_catch (ex) {
         if ((al_rc_t)ex.ex_value != AL_ERR_EOF)