char *ret = NULL;
 
        switch (ctx->p_seqcode.type) {
+               case EDG_WLL_SEQ_CREAM:
+                       /* fall through */
                case EDG_WLL_SEQ_DUPLICATE:
                        /* fall through */
                case EDG_WLL_SEQ_NORMAL:
                case EDG_WLL_SEQ_CONDOR:
                        ret = strdup(ctx->p_seqcode.condor);
                        break;
-               case EDG_WLL_SEQ_CREAM:
-                       ret = strdup("no_seqcodes_with_CREAM"); 
-                       break;
                default:
                        edg_wll_SetError(ctx,EINVAL,"edg_wll_GetSequenceCode(): unknown sequence code type");
                        return NULL;
        ctx->p_seqcode.type = seq_type;
 
        switch (seq_type) {
+               case EDG_WLL_SEQ_CREAM:
+                       /* fall through */
                case EDG_WLL_SEQ_DUPLICATE:
                        /* fall through */
                case EDG_WLL_SEQ_NORMAL:
                                /* pre-collections compatibility */
                                c[EDG_WLL_SOURCE_LB_SERVER] = 0;
                        } else if (res != EDG_WLL_SEQ_FORMAT_NUMBER)
-                               return edg_wll_SetError(ctx, EINVAL,
-                                       "edg_wll_SetSequenceCode(): syntax error in sequence code");
+                               if (seq_type == EDG_WLL_SEQ_CREAM)
+                                       return 0;
+                               else
+                                       return edg_wll_SetError(ctx, EINVAL,
+                                               "edg_wll_SetSequenceCode(): syntax error in sequence code");
 
                        if (seq_type == EDG_WLL_SEQ_DUPLICATE) {
                                if (ctx->p_source <= EDG_WLL_SOURCE_NONE || 
                        else
                                strncpy(ctx->p_seqcode.condor, seqcode_str, sizeof(ctx->p_seqcode.condor));
                        break;
-               case EDG_WLL_SEQ_CREAM:
-                       break; /* XXX: not yet */
                default:
                        return edg_wll_SetError(ctx, EINVAL,
                                "edg_wll_SetSequenceCode(): unrecognized value of seq_type parameter");
        edg_wll_ResetError(ctx);
 
        switch (ctx->p_seqcode.type) {
+               case EDG_WLL_SEQ_CREAM:
+                       /* fall through */
                case EDG_WLL_SEQ_DUPLICATE:
                        /* fall through */
-               case EDG_WLL_SEQ_PBS:
                case EDG_WLL_SEQ_NORMAL:
                        if (ctx->p_source <= EDG_WLL_SOURCE_NONE || 
                                        ctx->p_source >= EDG_WLL_SOURCE__LAST) 
 
                        ctx->p_seqcode.c[ctx->p_source]++;
                        break;
-               case EDG_WLL_SEQ_CREAM:
+               case EDG_WLL_SEQ_PBS:
                        /* no action */
                        break;
                default: