diff --git a/qse/lib/awk/run.c b/qse/lib/awk/run.c
index 9f9568a2..1662f0eb 100644
--- a/qse/lib/awk/run.c
+++ b/qse/lib/awk/run.c
@@ -1,5 +1,5 @@
 /*
- * $Id: run.c 468 2011-05-21 16:08:54Z hyunghwan.chung $
+ * $Id: run.c 469 2011-05-21 16:16:18Z hyunghwan.chung $
  *
     Copyright 2006-2011 Chung, Hyung-Hwan.
     This file is part of QSE.
@@ -1622,92 +1622,6 @@ qse_awk_val_t* qse_awk_rtx_call (
 	if (fun == QSE_NULL) return QSE_NULL;
 
 	return qse_awk_rtx_callfun (rtx, fun, args, nargs);
-
-#if 0
-	qse_htb_pair_t* pair;
-	qse_awk_fun_t* fun;
-	struct capture_retval_data_t crdata;
-	qse_awk_val_t* v;
-	struct pafv pafv/*= { args, nargs }*/;
-	qse_awk_nde_call_t call;
-
-	pafv.args = args;
-	pafv.nargs = nargs;
-
-	if (rtx->exit_level >= EXIT_GLOBAL) 
-	{
-		/* cannot call the function again when exit() is called
-		 * in an AWK program or qse_awk_rtx_stop() is invoked */
-		SETERR_COD (rtx, QSE_AWK_ENOPER);
-		return QSE_NULL;
-	}
-	/*rtx->exit_level = EXIT_NONE;*/
-
-	/* forge a fake node containing a function call */
-	QSE_MEMSET (&call, 0, QSE_SIZEOF(call));
-	call.type = QSE_AWK_NDE_FUN;
-	call.what.fun.name.ptr = (qse_char_t*)name;
-	call.what.fun.name.len = qse_strlen(name);
-	call.nargs = nargs;
-
-	/* find the function */
-	pair = qse_htb_search (
-		rtx->awk->tree.funs, 
-		call.what.fun.name.ptr,
-		call.what.fun.name.len
-	);
-	if (pair == QSE_NULL) 
-	{
-		SETERR_ARGX (
-			rtx, QSE_AWK_EFUNNF, 
-			xstr_to_cstr(&call.what.fun.name));
-		return QSE_NULL;
-	}
-
-	fun = (qse_awk_fun_t*)QSE_HTB_VPTR(pair);
-	QSE_ASSERT (fun != QSE_NULL);
-
-	/* check if the number of arguments given is more than expected */
-	if (nargs > fun->nargs)
-	{
-		/* TODO: is this correct? what if i want to 
-		 *       allow arbitarary numbers of arguments? */
-		SETERR_COD (rtx, QSE_AWK_EARGTM);
-		return QSE_NULL;
-	}
-
-	/* now that the function is found and ok, let's execute it */
-
-	crdata.rtx = rtx;
-	crdata.val = QSE_NULL;
-
-	v = __eval_call (
-		rtx, (qse_awk_nde_t*)&call, QSE_NULL, fun,
-		push_arg_from_vals, (void*)&pafv,
-		capture_retval_on_exit,
-		&crdata
-	);
-
-	if (v == QSE_NULL)
-	{
-		/* an error occurred. let's check if it is caused by exit().
-		 * if so, the return value should have been captured into
-		 * crdata.val. */
-		if (crdata.val != QSE_NULL) v = crdata.val; /* yet it is */
-	}
-	else
-	{
-		/* thr return value captured in termination by exit()
-		 * is reference-counted up in capture_retval_on_exit().
-		 * let's do the same thing for the return value normally
-		 * returned. */
-		qse_awk_rtx_refupval (rtx, v);
-	}
-
-	/* return the return value with its reference count at least 1.
-	 * the caller of this function should count down its reference. */
-	return v;
-#endif
 }
 
 static int run_pblocks (qse_awk_rtx_t* run)
diff --git a/qse/samples/awk/awk04.c b/qse/samples/awk/awk04.c
index 581320be..2a937ae8 100644
--- a/qse/samples/awk/awk04.c
+++ b/qse/samples/awk/awk04.c
@@ -1,5 +1,5 @@
 /*
- * $Id: awk04.c 457 2011-05-12 16:16:57Z hyunghwan.chung $
+ * $Id: awk04.c 469 2011-05-21 16:16:18Z hyunghwan.chung $
  *
     Copyright 2006-2011 Chung, Hyung-Hwan.
     This file is part of QSE.
@@ -35,6 +35,7 @@ int main ()
 	qse_size_t len;
 	qse_awk_val_t* rtv = QSE_NULL;
 	qse_awk_val_t* arg[2] = { QSE_NULL, QSE_NULL };
+	qse_awk_fun_t* fun;
 	int ret, i, opt;
 
 	/* create a main processor */
@@ -118,6 +119,37 @@ int main ()
 	qse_printf (QSE_T("[%.*s]\n"), (int)len, str);
 	qse_awk_rtx_free (rtx, str);
 
+	
+	/* call the function again using different API functions */
+	fun = qse_awk_rtx_findfun (rtx, QSE_T("pow"));
+	if (fun == QSE_NULL)
+	{
+		qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"), 
+			qse_awk_rtx_geterrmsg(rtx));
+		ret = -1; goto oops;
+	}
+
+	rtv = qse_awk_rtx_callfun (rtx, fun, arg, 2);
+	if (rtv == QSE_NULL)
+	{
+		qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"), 
+			qse_awk_rtx_geterrmsg(rtx));
+		ret = -1; goto oops;
+	}
+
+	str = qse_awk_rtx_valtocpldup (rtx, rtv, &len);
+	if (str == QSE_NULL)
+	{
+		qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"), 
+			qse_awk_rtx_geterrmsg(rtx));
+		ret = -1; goto oops;
+	}
+
+	qse_printf (QSE_T("[%.*s]\n"), (int)len, str);
+	qse_awk_rtx_free (rtx, str);
+
+	
+
 oops:
 	/* clear the return value */
 	if (rtv) qse_awk_rtx_refdownval (rtx, rtv);