#  assertion failure from nested string-valued function calls
#  what I was really looking for was to see if the inner call called twice

resource nest ()
	op quote(string[*] s) returns string[50] v

	string[100] s
	s = quote(quote("xyz"))
	write(s)

	proc quote (s) returns v  {
		writes("in quote(",s,")\n")
		v = "'" || s || "'"
	}
end nest