R UDFs with empty run function hangs

[stmandl]

This UDF does not terminate and eventually runs out of memory:

create schema test;

create or replace R scalar script test.dummy()
returns int AS 
run <- function(ctx) {
}
/


select test.dummy();

[tkilias]

The problem occurs, because an empty function returns NULL. I tried to return NULL directly and got the same error. We probably expect a vector as return value, and everything in R is a vector except NULL. Also, a vector of NULL is NULL