void main( string str ) {

  string error;
  object env;
  string filename;

  filename = "/wiz/" + this_player()->query_name() + "/workroom";

  if( !file_exists( filename + ".c" ) ) {
    write( "Make one first.\n" );
    return;
  }

  env = this_player()->query_environment();

  error = catch( this_player()->move( filename ) );

  if( error == 0 ) {
    this_player()->simple_action( "$N $vgo home." );
    this_player()->do_look( 0 );
  } else {
    env->tell_room( this_player(), capitalize( this_player()->query_name() ) + " looks confused." );
    write( "You can't go home.\nError: " + error );    
  }
}