Update constructors.R

Added cat() to help debug.