Paste: word not recognised?

! protagonist/protagonist.factor
USING: io sequences kernel strings io.directories ;
IN: protagonist

TUPLE: tagsystem { base-directory string initial: "./" } ;
: create-tagsystem ( string -- )
    ".protagonist" append make-directory ;

! protagonist/protagonist-tests.factor
USING: tools.test sequences kernel protagonist ;
IN: protagonist.tests

! I want this test to first create a tagsystem by making a base directory for tags to live in.
! So the first test is create the directory and then check that it is there.

[ t ] [ tagsystem new base-directory>> ".protagonist" append exists? ] [ create-tagsystem ] unit-test

! ----
! I run
! $ FACTOR_ROOTS=.. ~/factor/factor protagonist-tests.factor
! and get:

! protagonist-tests.factor

! 7: [ t ] [ tagsystem new base-directory>> ".protagonist" append exists? ] [ create-tagsystem ] unit-test
                                         ^
! No word named “base-directory>>” found in current vocabulary search path